inherited fmArmDet: TfmArmDet
  Left = 357
  Top = 186
  Width = 536
  Height = 520
  Caption = #1057#1086#1089#1090#1072#1074' '#1040#1056#1052#1086#1074
  Constraints.MinHeight = 520
  Constraints.MinWidth = 536
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 459
    Width = 528
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 528
    Height = 57
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 35
      Height = 13
      Caption = ' '#1040#1056#1052#1099' '
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cbMenus: TComboBox
      Left = 8
      Top = 24
      Width = 233
      Height = 21
      Style = csDropDownList
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 0
      OnChange = cbMenusChange
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 528
    Height = 402
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 2
    object sbAdd: TSpeedButton
      Left = 251
      Top = 48
      Width = 30
      Height = 30
      Glyph.Data = {
        76060000424D7606000000000000360000002800000014000000140000000100
        2000000000004006000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0000000000000000000000000080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        0000000000000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00000000000000000000000000000000000000000080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
        0000000000000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00000000000000000000000000000000000000000080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        0000000000000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0000000000000000000000000080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000000080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      OnClick = sbAddClick
    end
    object sbDelete: TSpeedButton
      Left = 251
      Top = 88
      Width = 30
      Height = 30
      Glyph.Data = {
        76060000424D7606000000000000360000002800000014000000140000000100
        2000000000004006000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008080
        8000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00000000008080800080808000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00008080800080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF000000000000000000000000008080800080808000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        000000000000000000008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0000000000000000000000000000000000000000008080
        800080808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000000000000000000000000080808000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF000000000000000000000000000000000000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      OnClick = sbDeleteClick
    end
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 94
      Height = 13
      Caption = #1044#1086#1089#1090#1091#1087#1085#1099#1077' '#1092#1086#1088#1084#1099
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 288
      Top = 8
      Width = 114
      Height = 13
      Caption = #1042#1089#1077' '#1074#1086#1079#1084#1086#1078#1085#1099#1077' '#1092#1086#1088#1084#1099
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 336
      Width = 233
      Height = 57
      Caption = ' '#1055#1086#1088#1103#1076#1086#1082' '#1092#1086#1088#1084' '
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object sbDown: TSpeedButton
        Left = 115
        Top = 19
        Width = 30
        Height = 30
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          888888888888888888888888888888888888888888888888888888888887F888
          888888888877FF888888888888788F888888888887788FF888888888878888F8
          88888888778888FF888888887777777788888888888888888888888888888888
          8888888888888888888888888888888888888888888888888888}
        OnClick = sbDownClick
      end
      object sbTop: TSpeedButton
        Left = 75
        Top = 19
        Width = 30
        Height = 30
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          888888888888888888888888888888888888888888888888888888887FFFFFFF
          88888888778888FF88888888878888F88888888887788FF88888888888788F88
          888888888877FF88888888888887F88888888888888888888888888888888888
          8888888888888888888888888888888888888888888888888888}
        OnClick = sbTopClick
      end
    end
    object lbCurrent: TListBox
      Left = 8
      Top = 24
      Width = 233
      Height = 305
      ItemHeight = 13
      TabOrder = 1
    end
    object lbAll: TListBox
      Left = 288
      Top = 24
      Width = 233
      Height = 305
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object qMenus: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT MENUID, LABEL'
      '  FROM MENU'
      'ORDER BY LABEL')
    Left = 328
    Top = 16
    object qMenusMENUID: TIntegerField
      FieldName = 'MENUID'
      Origin = '"MENU"."MENUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qMenusLABEL: TIBStringField
      FieldName = 'LABEL'
      Origin = '"MENU"."LABEL"'
      Size = 40
    end
  end
  object dsMenus: TDataSource
    DataSet = qMenus
    Left = 296
    Top = 16
  end
  object qMenuItems: TIBDataSet
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qMenuItemsAfterOpen
    BeforeClose = qMenuItemsBeforeClose
    CachedUpdates = True
    DeleteSQL.Strings = (
      'delete from MENUFORMS'
      'where'
      '  MENUNO = :OLD_MENUNO and'
      '  FORMNO = :OLD_FORMNO')
    InsertSQL.Strings = (
      'insert into MENUFORMS'
      '  (MENUNO, FORMNO, ORDINALNO)'
      'values'
      '  (:MENUNO, :FORMNO, :ORDINALNO)')
    RefreshSQL.Strings = (
      'Select '
      '  MENUNO,'
      '  FORMNO,'
      '  ORDINALNO'
      'from MENUFORMS '
      'where'
      '  MENUNO = :MENUNO and'
      '  FORMNO = :FORMNO')
    SelectSQL.Strings = (
      'Select m.MENUNO, m.FORMNO, m.ORDINALNO, f.LABEL'
      '  From MENUFORMS m, FORMS f'
      'Where m.MENUNO = :MENUID'
      '    and m.FORMNO = f.FORMNO'
      'Order by m.ORDINALNO')
    ModifySQL.Strings = (
      'update MENUFORMS'
      'set'
      '  MENUNO = :MENUNO,'
      '  FORMNO = :FORMNO,'
      '  ORDINALNO = :ORDINALNO'
      'where'
      '  MENUNO = :OLD_MENUNO and'
      '  FORMNO = :OLD_FORMNO')
    DataSource = dsMenus
    Left = 128
    Top = 105
    object qMenuItemsMENUNO: TIntegerField
      FieldName = 'MENUNO'
      Origin = 'MENUFORMS.MENUNO'
      Required = True
    end
    object qMenuItemsFORMNO: TIntegerField
      FieldName = 'FORMNO'
      Origin = 'MENUFORMS.FORMNO'
      Required = True
    end
    object qMenuItemsORDINALNO: TIntegerField
      FieldName = 'ORDINALNO'
      Origin = 'MENUFORMS.ORDINALNO'
      Required = True
    end
    object qMenuItemsLABEL: TIBStringField
      DisplayWidth = 80
      FieldName = 'LABEL'
      Origin = 'FORMS.LABEL'
      Size = 80
    end
  end
  object qAll: TIBDataSet
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qAllAfterOpen
    SelectSQL.Strings = (
      'select f.formno, f.label'
      '  from forms f'
      ' where not exists'
      '      (select *'
      '         from menuforms m'
      '        where m.formno = f.formno'
      '          and m.menuno = :MENUID'
      '       )')
    DataSource = dsMenus
    Left = 312
    Top = 105
    object qAllFORMNO: TIntegerField
      FieldName = 'FORMNO'
      Origin = 'FORMS.FORMNO'
      Required = True
    end
    object qAllLABEL: TIBStringField
      DisplayWidth = 80
      FieldName = 'LABEL'
      Origin = 'FORMS.LABEL'
      Size = 80
    end
  end
  object qAllForms: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select FORMNO, LABEL from FORMS')
    Left = 160
    Top = 105
    object qAllFormsFORMNO: TIntegerField
      FieldName = 'FORMNO'
      Origin = 'FORMS.FORMNO'
      Required = True
    end
    object qAllFormsLABEL: TIBStringField
      DisplayWidth = 80
      FieldName = 'LABEL'
      Origin = 'FORMS.LABEL'
      Size = 80
    end
  end
end
